set env(TCLLIBPATH) c:/tcl/lib
lappend auto_path c:/tcl/lib
package require Tk

load tuple
source range.tcl

proc with { n args } {
	tailcall {*}[concat [head -1 $args] {*}[head $n [tail $args ] ] ]
}
set width 600
set height 600
set cnv [ canvas .cnv -width $width -height $height ]
pack $cnv

set circle { {r x y} { .cnv create oval [expr $x-$r] [expr $y-$r] [expr $x+$r] [expr $y+$r] } }
unlazy [ map with 2 apply $circle 30 { { 10 10 } { 20 20 } {30 30} } ]
tkwait window .


